home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / H121A.ZIP / FILES6.EXE / lha / ZSCORE.PGM < prev    next >
Text File  |  1991-07-15  |  4KB  |  88 lines
  1. ************************************************************************
  2. *ZSCORE.PGM  Version 1.0, 20/FEB/1990                                  *
  3. *An Epi Info program to present anthropometric Z-score distributions   *
  4. *  by Kevin Sullivan, Division of Nutrition, CDC                       *
  5. ************************************************************************
  6. echo
  7. echo
  8. echo           You must read a file in order to run this program.  Type
  9. echo           READ and the name of a file.  There is an example data
  10. echo           file called NUTRI that can be used.
  11. echo
  12. ?EPI>?
  13. ************************************************************************
  14. *Declare missing variables based on Record Flag (same as AMISS1.PGM)   *
  15. ************************************************************************
  16. Define NOHA #
  17. Define NOWH #
  18. Define NOWA #
  19. If (flag=1) or (flag=3) or (flag=5) or (flag=7) then NOHA = 1 else NOHA = 0
  20. If NOHA then HAZ=.
  21. If NOHA then HAP=.
  22. If NOHA then HAM=.
  23. If (flag=2) or (flag=3) or (flag=6) or (flag=7) then NOWH = 1 else NOWH = 0
  24. If NOWH then WHZ=.
  25. If NOWH then WHP=.
  26. if NOWH then WHM=.
  27. If (flag>3) and (flag<8) then NOWA = 1 else NOWA = 0
  28. If NOWA then WAZ=.
  29. If NOWA then WAP=.
  30. If NOWA then WAM=.
  31. ************************************************************************
  32. *Define Z-score categories                                             *
  33. ************************************************************************
  34. Define HAZGRP _
  35. Define WHZGRP _
  36. Define WAZGRP _
  37. ************************************************************************
  38. *Create Z-score categories                                             *
  39. * note:  was not able to use recode command with negative numbers      *
  40. ************************************************************************
  41. If HAZ>=-6.00 and HAZ<=-5.0 then HAZGRP="a"
  42. If HAZ>=-4.99 and HAZ<=-4.5 then HAZGRP="b"
  43. If HAZ>=-4.49 and HAZ<=-4.0 then HAZGRP="c"
  44. If HAZ>=-3.99 and HAZ<=-3.5 then HAZGRP="d"
  45. If HAZ>=-3.49 and HAZ<=-3.0 then HAZGRP="e"
  46. If HAZ>=-2.99 and HAZ<=-2.5 then HAZGRP="f"
  47. If HAZ>=-2.49 and HAZ<=-2.0 then HAZGRP="g"
  48. If HAZ>=-1.99 and HAZ<=-1.5 then HAZGRP="h"
  49. If HAZ>=-1.49 and HAZ<=-1.0 then HAZGRP="i"
  50. If HAZ>=-0.99 and HAZ<=-0.5 then HAZGRP="j"
  51. If HAZ>=-0.49 and HAZ<= 0.0 then HAZGRP="k"
  52. recode haz to hazgrp 0.01-0.50=l 0.51-1.00=m 1.01-1.50=n 1.51-2.00=o 2.01-2.50=p 2.51-3.00=q 3.01-3.50=r 3.51-6.00=s
  53. If HAZ= . then HAZGRP=.
  54. If WHZ>=-6.00 and WHZ<=-5.0 then WHZGRP="a"
  55. If WHZ>=-4.99 and WHZ<=-4.5 then WHZGRP="b"
  56. If WHZ>=-4.49 and WHZ<=-4.0 then WHZGRP="c"
  57. If WHZ>=-3.99 and WHZ<=-3.5 then WHZGRP="d"
  58. If WHZ>=-3.49 and WHZ<=-3.0 then WHZGRP="e"
  59. If WHZ>=-2.99 and WHZ<=-2.5 then WHZGRP="f"
  60. If WHZ>=-2.49 and WHZ<=-2.0 then WHZGRP="g"
  61. If WHZ>=-1.99 and WHZ<=-1.5 then WHZGRP="h"
  62. If WHZ>=-1.49 and WHZ<=-1.0 then WHZGRP="i"
  63. If WHZ>=-0.99 and WHZ<=-0.5 then WHZGRP="j"
  64. If WHZ>=-0.49 and WHZ<= 0.0 then WHZGRP="k"
  65. recode whz to whzgrp 0.01-0.5=l 0.51-1.0=m 1.01-1.5=n 1.51-2.0=o 2.01-2.5=p 2.51-3.0=q 3.01-3.5=r 3.51-6.0=s
  66. If WHZ= . then WHZGRP=.
  67. If WAZ>=-6.00 and WAZ<=-5.0 then WAZGRP="a"
  68. If WAZ>=-4.99 and WAZ<=-4.5 then WAZGRP="b"
  69. If WAZ>=-4.49 and WAZ<=-4.0 then WAZGRP="c"
  70. If WAZ>=-3.99 and WAZ<=-3.5 then WAZGRP="d"
  71. If WAZ>=-3.49 and WAZ<=-3.0 then WAZGRP="e"
  72. If WAZ>=-2.99 and WAZ<=-2.5 then WAZGRP="f"
  73. If WAZ>=-2.49 and WAZ<=-2.0 then WAZGRP="g"
  74. If WAZ>=-1.99 and WAZ<=-1.5 then WAZGRP="h"
  75. If WAZ>=-1.49 and WAZ<=-1.0 then WAZGRP="i"
  76. If WAZ>=-0.99 and WAZ<=-0.5 then WAZGRP="j"
  77. If WAZ>=-0.49 and WAZ<= 0.0 then WAZGRP="k"
  78. recode waz to wazgrp 0.01-0.5=l 0.51-1.0=m 1.01-1.5=n 1.51-2.0=o 2.01-2.5=p 2.51-3.0=q 3.01-3.5=r 3.51-6.0=s
  79. If WAZ= . then WAZGRP=.
  80. ************************************************************************
  81. *Ignore missing values for report                                      *
  82. ************************************************************************
  83. set ignore=on
  84. ************************************************************************
  85. *Use report for z-score output                                         *
  86. ************************************************************************
  87. report zscore.rpt
  88.